lan HAINTEHAHCE DI&GaOSTIC PB06BAH 



PABT lO. 
PAGE 



5129646 
1 



Boaa 



54U4 IPL TEST 



EBB LOC OBJgrt CODE 



ADPH ST8T S008CE STA?MEBT 



COCO 
OAOO 



OAOO BG33 
C>02 00 
0»('3 01 
0A34 0000 
0A06 OftOr 
CAC8 0000 
OAOA A05000 



0A01 
OA02 
0A03 
0A95 
0A07 
0A09 
OAOC 



OAJO 01 
Ol.OE 8C 
O4OF FPPP 
CA11 OC 5A 
UA17 CO Hi 
CAIB 46 
PA'IC 13 
0A1D 115F 
CA1F AGED 



0A21 3B 08 ,f.65 

0A25 3B 06 0A3E 

oA29 3C PP 15BF 

0&2I. CI AO 0O56 

0A31 CI A2 0D28 

0A35 31 Ail 15CD 

CA39 31 A6 15CP 

OASD P3 .0 00 

0A4a 30 A2 15C1 

0A44 38 *0 15C1 

0A48 CO 10 0A40 

0&4C 38 40 1>C1 

OA50 CO 90 0^89 

0AS4 CI AO -)D56 

0AS8 3C 00 ISBf 

0A5C 31 A6 IbCP 



15BA 15BB 
021 A 



OAOO 
OAOE 
0A1C 



0A18 
OAlC 
0A1E 
3A20 



2 DECK 4 

3 DISK START 

4 OBG 5«A00» 

5 ^it** ******* *^** ******************************* ************************* 

6 * 10/06/71 lAST DPDATE » 

7 *********************************************************** i^*********** 

B • DISK IPL POBRAT CHECK ♦ 

9 *m************* ********** A** ******************************** *********** 

10 * SECTIOH B03 BOOTXHB 01 * 

1 1 ********************************************************"************** 

12 * SECTIOH PBBPACB • 
'13 *9************t ************* ******t* ************************************ 



14 

15 
16 
17 
18 
19 
20 AODT 



DC 
DC 
DC 
DC 
DC 
DC 
DC 



XI,2»B033« 

XLI'OO' 

XI,1«01» 

XI,2'000C« 

AL2 (BTIiOl) 

11,2 • 0000 • 

XL3'A05000* 



EBOGBAB ID ARD BEVISIOB LBISL 

£BCTIOI PI.A6S 

COBBBIT BOOTUB BOBBEB 

BESEBVBD 

PIBST BOOTIMB ADDBESS 

BESBBTBD 

SBJTIOI PBBPACE ODT TABLE 



********************v********^********* *************** *■>>************** 
♦ PBO^BAH BOTES ♦ 



PaoSBAH CONTAINS OI>LX OIE BOCTIBE. THIS BOOTIRB IS USED THICE, 
OHCE PEB EACH DISK OB SPIHDi;.E 1. THIS PBCSfiAB CHECKS TEAT THE 
IPL DATA LOADED BT PBOGBAH LOAD IS THE SAHB AS IS BEAD BI A 
BEAD COHHBAMO. 



23 ^ •******************^ ************************************* f ************ 

24 

25 

26 

27 

23 
20 

30 
31 
32 
33 
34 
35 
36 
37 
33 
39 
40 
41 



* 
* 
* 

* * 
****** ^^*****************^ *********** *********************************** 

********* 

* BTB01 * 
*********************************************************************** 

* * 

* BOntlSE 01 PBOGBAP BEADS SECT02 0? TSiCK PSOH BOTH * 

* TBE PIXrD ABU BBBOTABLE PISKS. THE POBBAT * 

* IS CBECCED POB TBE COBBEC'^ IPI PBOGBAB POB * 

* EACfl DISK. * 

* * 
******^*************'t^* ********* ft.************************************* 



DC IL1*0t> 

DC XL1«80« 

DC XL2'yPPP' 

BVC PaTC91) ,PBT»1 

9 Pais? 

DC XL1«46» 

aC IL1'19« 

DC AL2(IPLHD) 

OC XL2*A0BO* 

***************' ************ t ******* *********************************** 
* BECALir.BATS DISK SUITE 1 * 

************************ ***************************** ****************** 



4 2 BTH01 

43 

44 

45 

116 

47 

48 

49 

50 

51 

52 

53 

54 BEGIS 

55 

56 HDNXT 

57 

58 

59 

60 

51 

62 

63 

64 

65 

66 

67 

68 

69 



BOQTIBB BDHBBB 

BAMIIAL IITBBTLJTIOB BEQOIBED 
U " BOOTIBB 
CLtmg PRINT ABEA. 
PBINT TEST HEAOIBG. 
ID -A0EO-- 



sroo 

SfSIT 



SBP HOSIO. 1,I«08« 

SBP SK00«1,X'08< 

«fl CHTaL*3,X«PP» 

TIC NTBBIA,X*AO> 

TIG B£rCK,X«A2» 

LIG BBAD,Z*A4* 

LIO CCK,«<A6* 

SIC X»00',X»t'1' 

SBS STS8»':,I«A2» 

TEN 5t5:::i.xmo» 

BT S»3XT 

tan STSBI1,X*«0* 

BP CTLCK 

TIG aTBDTa,Z*AO* 

HVI CfTBL*3,X»00« 

LIO CCH,I'A6i 



SET BEAD POB BBBOTABLE DISK. 

Slit COHTBOL FIELD FOB BBCALIBBATE. 

BBAHCa IP bTSK OBITS- 1 BOT BEAOT 

EBABCB IP DISS DBI?B-1 IS BUSY 

LOAD DATA AOOBiiSS BB6ISTBB. 

LOAD DISK COHTBuL BBGISTEB. 

XSSDE SIO TO BBCALIBBATE. 

SENSE STATOS BITE 1. 

:iEE5 BOSI BIT OB ? 

COBTIBOE LOOP IP SO. 

OTLIBDEB BIT OB 7 

aBABCH ODT IT BOT. 

^BABCR IP DISK OBITB-1 IS BOT BBADI 

tiET COVTBOL PXBLC POB kBADIBG. 

LOAD COBTSCL BEGISTBB. 



DATE 
EC BO. 



13HtB70 
571512 



06APB70 
571516 



22aAT70 
571513 



01OCT70 
571540 



290CT7 1 
57ir,01 



PBOG 10 
PAGB 



Ott03-3 
1 



IBB H&tatEHiaCE DliSBOSTIC PBC^BtH 



P&IT 10. 
P&GB 



5129646 
1i 



E033 



5444 lEt TEST 



ESB LOC OBJECT CODS 



ADDB STHT SOOBCB STATBHEHT 



0A60 31 A4 15CD 

0A64 F3 »1 00 

0167 CI k2 0A67 

0163 CI iO 0D56 



0a6F 38 08 0465 

0*73 F2 10 09 

0A76 OC OD 0P5D 1005 

0A7C F2 8"' 06 

0A7F OC OD 0F5D 0FP7 

0A85 C2 01 0ED1 

0A89 3C 09 15C7 

0X8D 34 01 0A98 

0A91 CO 87 021A 

0A95 02 

0A96 23 

0A97 0000 

0A99 D2 01 23 

0A9C OF 00 15C7 

0AA2 CO 84 0A8D 



BOS 10 



15D3 



0AA6 CO 87 021t 
OAAA 16 



0A95 
0A9b 
0A98 



OAAA 



OAAB 31 A4 
OAAF 31 A6 
0AB3 F3 AC 
0AB6 OC 7( 



15CD 

15D5 

00 

145F OOFF 
OABC OC 7F 13DP 007F 
0AC2 3C fF OOFF 
0AC6 OC FE COFE OOFF 
OACC 3C CO 007F 
OADO OC 7E 007E 007F 
0AD6 OC 03 0003 151)9 
OADC OC ?f 155f OOFF 
0AE2 CO 87 0222 
0AE6 AOEC 
0AE8 CO 87 0AD6 
OCOO 



OCOO 
0C06 
OCOC 
0C12 
0C16 
0C1C 
0C20 
0C26 
0C2A 
0C30 
0C36 
0C3A 
0C3D 
0C41 
0C44 
0C48 
0C4E 
0C52 
0C53 
0C54 
0C56 



OC 7F 
OC 7F 
OG IF 

CO 81 
OD 7F 
CO 01 
Ot 7F 
CO 1 
OC 7F 
OC IT 
38 10 
F2 10 
3C 06 
F2 87 
3C 2 
OC OB 
CO 87 
00 
25 
1118 
38 10 



145F 

13DI 



135F OCFF 

12Df 007F 

155F OOFF 

0D3C 

OOFF 175F 

0C9D 

007F IIUl' 

0C9D 

OOFF 

007P 

020B 

07 

0C52 

04 

0C52 

1118 0P5D 

021 A 



020B 



OAE"! 



0C52 
0C53 
0C55 



♦ pamT ;,isT of opebatob iistboctjois. • 

t*.^^tt^t*m** ***********•********•***'***** ****************************** 



KtTHS 



^m************** ******************************************************* 
* SEHD the disk heads to TBACK 50 TO AID IH CBECKIBG THB * 

» THE HECiABICS OF THE IPL PfiOCESS. • 

**0*tm********* ********** *******^ a: *********n******************** ******* 



70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 CRHES 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
10U 
IC'J 
1 J6 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 

r.9 

120 
121 
122 
123 
124 

;?5 

126 
127 
128 
129 
130 
131 
132 
133 
134 
13? 
136 
137 



LIO eCA(,X*A4' 

SIO X«00',X«A1' 

TIO *-X'A2« 

TIG HTBI'7A,X'A0« 



LOAD DATA AOOSBSS BBGISTEB. 
BE AC DATA PBOH SECTCS 00. 
LOOP TILL BOST CROPS. 
bSAKCH OST IF DESK DBIVB-1 ROT 



BEAD! 



tBIl BDSIO*1,X«08« 

JT ♦♦12 

HTC STIPL{14) ,BHT 

J •♦9 

a?C STIPL(14) ,FII 

LA IHST,KR1 

STI TBBP.i 

ST CaHES.XBI 

B PBXsr 

DC XL1«02' 

DC JL1«35« 

DC »L2i*-*) 

LA 33(,XB1},XB1 

SLC TEHt'CI) .^051 

BP BXTaS 

B PBtHT 

EC XX 1« I6« 



FIXED DISK SELECTED? 

JOflP IF SO. 

SET DP BEHOTABLB DISK HEAOIHG. 

SET FIXED DISK HBAOIBG. 

STCSB HESSAGB AUDBESS. 

SET LOO? COOIT TO 9. 

STOBE ---(IBBIiiST HESSAGB ADOBESS. 

PBIMT COBBBar B£:::Si&E. 



BOaP OP BBSSAGE POIRTEB. 
DECBEBEIT LOOP COOHT. 
COBTIBOE LOOP TILL ALL 008K. 

SPACE OP TdE PAPSB. 



ST HUP 



Liu BSA0,X'A4* 

LIO O0T,X'A6' 

SIO X'OO'.X'AO* 

aTC DCP(128),255 

HTC DCP-128(128),127 

H7I 255,X'FF' 

HTC 254 (255), 255 

aVI 127,X'00« 

B»C 126 (127), 127 

StC 3 (4) ,BaNCH 

SVC CHECK (256) ,255 

3 HALT 

CC XL2*A0BC< 

a STHOP 

OHG X'OCOO* 



LOiO THE DATA ADDBESS REGISTEB. 
LOAD THE COBTBOL BKSISTEB. 
DO A SEEK STAB.' I/O COHBAID. 
SA?B BOTTOH COBB. 

LOAD BOTTOH COBE BIaH FF«S, OO • S 



STOBE BBANCfl IH TE8S BOTTOH. 



IBLIME HALT -EC-. 



GO REPEAT HESSAGBS. 



*mm************************* ************* ****************************** 
* OPEbATOB host dial IB -OCOC- TO STABT BOaalBG THE PBOGBAB. * 

9^0tLi,m******************* *********** *********************************** 



OP 



!<?C 
H?C 
CLC 

BE 

C^C 
SHE 
CLC 
BME 
B»C 
B?C 

rsH 

JT 

B?I 

J 

HTI 

BTC 

B 

DC 

DC 

DC 

TBH 



CODE (128) ,255 SATE THE IPL CODE. 

CODE- 128 (123) ,127 

CHECK (256) ,255 DID AHX DATA GK TBANSFBBBBD ? 

HOPS BBABCa IP aOT. 

255(128) ,BEADia«255 IPL COBE CORBESPOSS TO B£AD DATA 

HOPE EBABCa IP HOT. 

127(128) ,BEADIH*127 



HOPE 

255(128),DCP 
127(128) ,OCP-128 
SBTTE3,SSii1B 

• »10 
tJP,X«06» 

♦ ♦7 
0P,V'02' 

OKIPL (15),STIPL 

PBIHT 

XLI'OC* 

IL1«37« 

AL2 (OKIPL) 

SBITE3,SSalB 



ERAMCH IF HOT. 
BE STOBE DCP. 

SSH IB SET ? 
JOHP IF SO. 
SET SPACE OP 



FCB 6 LIHES. 



SET SPACE UF FOB 2 LIHES. 
STOBE DISK ID. 
FBIRT IPL DATA OK. 



SS8 IB SET ? 



•^ITE 
EC NO 



13flAR7} 
5T1512 



06APB70 
571516 



22RAT70 
571513 



01OCT7C 
571540 



290CT71 
571601 



PBOG ID 
PAGE 



0EO3-3 
lA 



IBS HAIHTEHIUCE DIAGH03TIC PBOGRtH 



PilT 10. 
PAGE 



5129646 

2 



B033 



S444 ir lESt 



EBR IOC OBJECT CODE 



iCCH STHT SOaaCE STiTBHEIT 



0C54 


F2 90 


18 






138 




JF 


HBZT 


0C5D 


OC 01' 


10F3 


0F5D 




139 




H?C 


Dfl0P{15} ,STIPL 


0C63 


CO 87 


021 A 






140 




B 


PBIMT 


9C67 


«»2 






0C67 


141 




DC 


XL1«42« 


0C68 


22 






0C68 


142 




DC 


IL1«34« 


0C69 


10F3 






0C6A 


143 




DC 


AL2(0BO?) 


0C6B 


AOEE 






0C6C 


144 




DC 


XL2«A0Eg' 


'JC6D 


3C EE 


0Di3 






145 




HTI 


ILaLT.I'EE' 


0C71 


CO 87 


CCCD 






146 




B 


PBTHB 












147 


**«******«***«•*•**•*•»**•**♦*•* 












148 


* 


CBECK 1 


30TH DISKS BEFOBE T 












149 


*********************** ********* 


0C75 


38 05 


0A65 






150 


HEXT 


TB8 


BDSIO*1,I«08» 


0C7S- 


CO to 


0216 






151 




BT 


LlflK 


0C7D 


3* 08 


0A65 






152 




SB<{ 


hd:;io»i,x'08» 


CC61 


3* 08 


CA3E 






153 




SBH 


SKC0*1,X'08« 


0C35 


CO 87 


0A29 






154 




B 


BOHXT 












155 


*********** ***^******r ********** 












156 


* CHECKS ♦ 














157 


********** 


SOBBOOTIfiE 












158 


* 
















159 


***^******:***, 


t *********** ******* 


CC39 


CO 87 


021A 






160 


CTLCK 


B 


PBIVT 


0C8D 


C6 






CC8D 


161 




DC 


?L1 •C6« 


0C3E 


IF 






0C8S 


162 




DC 


TL1'31« 


0C8F 


1024 






0C90 


163 




DC 


A12 (CAL) 


CC91 


ArOE 






0C92 


164 




DC 


XL2'A00 2« 


0C93 


CO 87 


0222 






165 




B 


HALT 


0C9T 


iOOE 






0C98 


166 




DC 


Xi2«A0OE» 


0C9S 


CO 87 


0A21 






167 




B 


BECTV 


0C9D 


33 08 


0A65 






168 


BOPE 


TBH 


«n«5io*i ,i«ca« 


0C»1 


F2 10 


09 






169 




JT 


**12 


OCJ.« 


OC OD 


1049 


1005 




170 




HTC 


CUPL(14) ,BBf 


OC&A 


F2 87 


06 






171 




»j 


♦♦9 


OCAD 


OC OD 


104? 


0PF7 




172 




HTC 


CKIPL(14}.FIX 


0CE3 


OC 7F 


COIF 


145F 




173 




H7C 


255 (128 ,DCP 


0CB9 


: 7F 


007F 


13DF 




174 




mc 


127 (128).DCP-12e 


OCBt 


CO 87 


021A 






175 




B 


PRIST 


0CC3 


C2 






0CC3 


176 




DC 


XL1«C2« 


0CC4 


J! 5 






OCCU 


177 




DC 


IL1'37' 


0CC5 


'1049 






0CC6 


'73 




DC 


AL2 (CUPL) 


0CC7 


A09E 






0CC8 


179 




DC 


XL2<A09E< 


0CC9 


3C 9E 


0D23 






1 iO 




H¥I 


ILHI.T,X<9B* 


OCCD 


CO 87 


021A 






vn 


PHTHD 


B 


PBIIT 


0CD1 


32 






OCDI 


182 




DC 


XL1«82« 


0CD2 


IF 






0CD2 


183 




OC 


I11«79» 


0CD3 


10BA 






0CD4 


184 




DC 


AL2(HDM) 


0CD5 


C2 01 


126F 






185 




LA 


CODE-240,XB1 


CCD9 


C2 02 


116F 






186 




LA 


BEAOZI 4-15,182 


OCDO 


3C 10 


15C7 






187 




B»I 


T£HP,16 


0CB1 


34 01 


OCEB 






188 


LPT 


ST 


ODTI.IHt 


0CE5 


CO 87 


021E 






189 




B 


ONPACK 


0CE9 


10 






0CE9 


190 




DC 


IL1» 16» 


OCBA 


0000 






OCEB 


191 


O0T1 


DC 


AL2{*-*; 


OCBC 


1582 






OCED 


192 




DC 


AL2 tPBT-56) 


OCEE 


34 02 


0CF8 






193 




ST 


OnT2,XB2 


0CP2 


CO 87 


021E 






194 




B 


OHPACX 


0CP6 


10 






0CF6 


195 




DC 


XL1«16» 


0CF7 


0000 






0CF8 


196 


0UT2 


DC 


AU (♦-*, 


0CP9 


15Bi 






OCFA 


197 




DC 


AL2 (PBT: 


OCPB 


CO 87 


021A 






198 




8 


PBIBT 


OCFF 


01 






OCFF 


199 




DC 


XLl'01* 


ODOO 


5B 






0000 


200 




DC 


IL1«91' 


0DO1 


15E1 






0D02 


201 




DC 


AL2(PRT) 


0DO3 


OC 5A 


15BA 


15BB 




202 




HTC 


PBT(91 ,PBT + 1 


0C09 


D2 01 


10 






203 




LA 


16(,X81),XB1 


ODOC 


82 02 


10 






204 




LA 


1i(,XB2l ,XB2 


ODOF 


OF 00 


15C7 


15D3 




205 




3LC 


T8BP(1) ,1001 


DATE 


13BAB70 


06APP70 


22RAT70 


010CT70 


290CT71 


EC RO. 


571512 


571516 


571513 


571540 


571601 



JQHP IF lOT. 
SET OP DISK ID. 
PBIBt OaSP OPTIOH. 



SET DP FOB -EE- HALT. 
GO DOaP THE IPL AID BEAD DATA. 
*************************************** 

EBHIMATZBG SECTIOH. * 

*************************************** 

FIXED DISK CHECKED lET ? 
TEBaiMAIB SBCTIOI IF SO. 
SET BEAD COaaAlO FOB FIXED DISK. 

GO CBECK THE FIXED DISK. 
**-r;********^***9 *********************** 

* 

h&NDLBS ALL EBBOB 1BSSAGES. * 

* 
*************************************** 
PBIBT BBCAL. CHECK. 
ID -A0EB-. 



EBBOB HALT -0E-. 

GO TBI AGAIB. 

THIS A FIXSD DISK BOG ? 

J?5? IF SO. 

BOILD BBBOTABLE HESSACE. 

BOILO FIX BESS AGE. 
BEST08B DCP. 

PBIHT IPL CHECK. 
ID -A09B-. 



SET OP FOB EBBOB HALT -9E- 
PBirr DOflP HEADIHG. 



IMITIALIZE INPOT ADOBBSSES. 
SET LOOP COOBTEB. 
DBPACK IPL DATA. 

ONPACK BEAD DATA. 

PBIST THE IPL AID BEAD DATA, 



CLEAB PBIIT ABEA. 
IMCBBHBIT P3IITBBS. 

OECBEBBHT LOOP COOIT. 



PBOG ID 
PAGB 



OB03-3 
2 



IBB aitaTBHAICE OliGNOSTIC FBOGBAH 



B033 



5*»i»l» IPL TEST 



P&BT HO. 
PAGE 



51296116 
2k 



EBB LOC OBJECT CODE 

01)15 CO 84 OCEl 

0D19 CO 87 021A 

001D 16 

ODIE CO 87 0222 

0022 toco 

0D24 CO 67 CC75 

0D28 CO 87 021A 

0D2C C6 

0D2D 15 

0D2E 1066 

0C30 A0V8 

0D32 CO S7 0222 

0D36 A098 

0D38 CO 87 0A21 

0D3C OC 01 114C 0P5D 

0D«2 CO 87 021A 

0D46 C6 

0D17 34 

OOae 114C 

0D4A Aa9F 

0D4C CO 87 0222 

0050 A09F 

0D52 CO 8'' 0C75 



ADDS STBT SOUfiCE STATEMENT 



0DS6 


36 


08 


15D1 


0D5A 


34 


08 


0D8E 


0D5E 


30 


A2 


15C1 


0D62 


30 


A3 


15C3 


0D66 


38 


40 


15C0 


0D6A 


P2 


90 


22 


006D 


39 


BF 


15C0 


DD71 


F2 


90 


IB 


0D74 


39 


8C 


15C2 


0D78 


F.- 


90 


14 


0D7B 


CO 


87 


021A 


0D7P 


C6 






0D80 


17 






ODS: 


10D1 




0D83 


AOFE 




0085 


CO 


87 


0222 


ODBS 


AOFE 




0D8B 


CO 


87 


OOCO 



0D8F CO 87 021 A 
0093 "2 
0D94 OD 
0D95 1056 
0C97 A097 
0399 C2 01 OEOE 
0D9D 3C 01 0DA2 
0DA1 38 00 15C0 



OCID 
0D23 



0D2C 
0D2D 
0D2t' 
0D31 

0D37 



0D46 
CD47 
0Q49 
ODttB 

0D51 



0D7F 
0D80 
0D82 
0D84 

CDSA 



0D93 
UD94 
096 
0D98 



206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

<i8 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

24!j 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

2M 

2 'J 2 

26j 

2t>4 

265 

266 

267 

263 

26<l 

27 

271 

272 

273 



BP LPT 

B PRINT 

OC XI,1»16« 

B HALT 

ILHLT DC XL2«A000* 

B HEXT 

BSYCK B PBIHT 

DC XL1'C6« 

DC IL1«21' 

DC AL2(BaSI} 

OC XL2*A098* 

B HALT 

DC XL2'A098' 

B BEG III 

MOPS M»C 1IIPL(14) .STIPL 

3 P8I1T 

DC /L1*C6« 

DC IL1'52' 

DC AL2(ilIPL) 

DC Xi2'A09F' 

B HALT 

DC XL2«A39F« 

B NEXT 



LOOP TILL COOHT BOBS OUT. 
SPACE OP PAPEB. 

IB' BE HALT -9E- OB -EE-. 



GO DO HEXT DISK OB 
PBIIT BOSr CHECK. 
ID -A098-. 



TEBSINATE. 



EBBOB CLAT -98-. 

GO STABT OTEB. 

SET DP DISK ID. 

PBXBT HO DATA TBAHSFBBBED. 



ESBOB HiL*" -9F-. 



GO DO NEXT DISK OB TEBHIHATE. 



**««**-**•*« «**•*«♦*«*•*********•«•******«««***«'>«««**♦*«•**«*•* »««***«« 



♦ HT3DTX * 

« 
* 

NTIIDTA A 
ST 
SHS 
3BS 
TBH 
JF 
TBF 
JF 
TBF 
JF 
BEADT 
B 

DC 
DC 
DC 



SOBBOOTINE IS CALLED BU iH A SPIBDLE DROPS • 

BEACT. THE STATUS BITES FOB THAT SPIBDLE * 

ABE SEBSEE AND CHECKED. A -BOT BEADI- * 

BESSAGE IS PBIBTED IF J JLT THE -ISTEBVEBTIOH * 

BIT- IS OH. OTHEBHISE T.IE STATOS BITS ABE * 



IHTE8PBETED AHD PBXHTEO. 



BOTE - ISSUE A TIO A;> FOLLOBS, 



* 



TIO 
J 



BTBDTX 
• ♦7 
AFTEB 



BBABCH 1? HOT 
JPSP IP OR. 
BETUBB HEBE IS 



BDI. 



HT BDT* 

* 

NBG4,ABB 

STORE BETOBB ADDRESS. 

SEHSE SPHDL 1 STATOS BITE" & 1. 

SEHSE SPHDL 1 STATUS BITES 2 5 3. 

lJl7Ea?E»TI0H BIT GH ? 

JUHP IF BOT. 

ABE BEST OF THE BITS OFF ? 

JOHP IF HOT. 

ABT BITS 01 IB BYTP 2 ? 

JUHP IF SO. 



* HOT 



HOT 



US* 

B 
DC 

B 



► ST4V0S 



DRP 



VS -0 



B 

DC 

DC 

DC 

DC 

LA 

n?i 

TP' 



BDT'»3,ABB 
STS.,Y1 ,X'A2' 
STSBT3,X'A3' 

STSBIO,X'40« 
DHP 

STSBT0,X«BF' 
DHP 

STSBr2,X»8C« 
DBF 
EBROB BESSAGE * 
PBIHT 

XL1 'ce • 

IL1»23« 

AL2(SP0HB) 

XL2<A0rE* 

HALT 

XL2»A0?E» 

*-* 

B^'TE EBROB ilESSAGE 
PBIST 
XL1«C2* 

i;.i«i3» 

AL2(STSCR) 

XL2'A097« 

STS0»2,XB1 

TSTO+I.X'OI" 

STSBTO,X'00> 



PBIHT SPIBDLE HOT KEADT. 
ID -AOFE-. 



EBBOB HATL -?E-. 



BETOBB TO Z3T BEADT EFANCH. 



PBIBT STATOi: 
ID -A097-. 



CH?^CK. 



LOAD iaBLE AOOBBSS 
PBZSEt BIT POIST'sB 
CUBBEH'.* BIT OM ? 



in INDEX 
FOB BYTE 



BEG 

0. 



DATE 
EC HO. 



13HAB70 

571512 



06APB70 
571516 



>2aAT70 
•17.513 



01OCT70 
571540 



290CT71 
571601 



PBOG 10 
PACE 



0B03-3 
2A 



IBH RAIHTEHiHCE DIAGBOSTIC PBOGBiH 



B033 



5*»UH IPL T8ST 



PAKT 10. 

PAGE 



5129646 

3 



EBB LOC OBJECT CODE 



ACDB STHT SOOBCB STATEHEIT 



0DA5 


CO 


10 


0DE7 


0DA9 


D2 


01 


03 


ODAC 


CE 


00 


0DA2 0CA2 


0DB2 


3D 


00 


0OA2 


0DB6 


CO 


01 


0DA1 


ODBi 


3B 


04 


15C2 


OCBE 


CO 


10 


0DE7 


0DC2 


D2 


01 


03 


0DC5 


38 


oe 


15C2 


ODC} 


CO 


10 


0DE7 


ODCD 


D2 


01 


03 


ODDO 


38 


80 


15C2 


0DD4 


CO 


10 


0DE7 


0DD8 


CO 


87 


02U 


ODDC 


16 






OCDC 


CO 


87 


0222 


0DB1 


A097 




0DE3 


CO 


87 


0A21 


0DE7 


34 


08 


ODFB 


ObEP 


1C 


02 


0OF7 00 


ODPO 


CO 


S7 


021A 


0DP4 


ii^ 






0DP5 


CO 






0DP6 


0000 





0DP8 CO 87 0000 



ODPC 00 7F OOFF 145F 
0B02 OC 7P 0C7F 13DF 
0E08 CO 87 0A21 



osoc 


OA 


OEOD 


0E9B 


OEGF 


15 


OE10 


2' 1 


0212 


OF 


0E13 


0E7C 


0B15 


OA 


0E16 


0E6D 


0B18 


OF 


0B19 


0B63 


OEIB 


11 


OFIC 


CB54 


0E1E 


15 


oe:f 


0E43 


0E21 


05 


0E22 


0E2E 


CE24 


OD 


0E25 


OEAB 


0E27 


06 


0E28 


0EA1 



ODDC 



0DS2 



0DF4 
0DF5 
0DP7 



OEOC 
CEOC 
OEOB 
OEOF 
CE11 
0E12 
0E14 
0B15 
0E17 
QB13 
0B1A 
0E13 
0E1D 
0E18 
CE2a 
0E21 
0E23 
0B2* 
Oe24 
0E26 
0E2V 
•■■•'£29 



0B2A D5C660D6D7 0E2E 

0E2F C9I)5E3C5D3E5C5D5 0843 
OE37 E3r'»D6D540a9C5rfl 
0E3F E4C9D*CSC4 
0E44 D50640C1C4C',D9C5 0E54 



274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

2 94 

295 

296 

297 

298 

299 

3C0 

301 

302 

303 

304 

305 

3C6 

307 

308 

309 

JIO 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

32 

32 

32 

326 

327 

328 

329 

330 

331 

3j2 

'?3 

i\t* 

US 

336 

J :7 

338 
338 
33B 
339 



BT 
LA 
ALC 
CLI 
BME 
TBB 
BT 
LA 
TBK 
BT 
LA 
TBM 
BT 
B 

DC 
B 

DC 
B 
* PRIHT BIT 
PPTSTS ST 
H?C 



B 
DC 

DC 
DC 
B 



PBTSTS 
3(,IS1) ,X81 
TSTO^Id) ,TST0*1 
TSTC*1,I'00" 
TSTO 

STS3T2,I»04« 
PKT3IS 
3(,»1),XB1 
STSBI2,I«08« 
PBTSTS 
3(,IB1) ,XB1 
STS3T2,X«80« 
PBTSTS 
PRIW 
XL1*16» 
RAIT 

IL2«A097' 
BEGIH 
ID • 
SPT«3,ABB 
SPT-1 (3) .0{,XB1) 
PfilHT 
XLI'81" 
ILI'OO' 
IL2'0O0a' 
♦ -♦ 



GO PBINT ID IF SO. 

IMCBBHBIT TABLE POIMTES. 

SHIFT BIT POIITBB TO lEXT IIT. 

ALL BITS TBSTBO 7 

BBAHCR BACK IP BOT. 

HEAD SBTTLXBG BIT 01 ? 

GO PBIIT ID IP SO. 

IICBEHEBT TABLE POIITBB. 

INDEX BIT 01 ? 

GO PBIBT 10 IP SO. 

TICBBHEIT TABLB POIBTBB. 

aaSAFS BIT 01 ? 

GO PBIIT ID IF SO. 

SPACE OP THE PAPEB. 

EB80B HALT -97-. 

GO STABT ALL OVEB. 

ST QBE BBTOBS A DOB ESS. 

ST QBE COBBS E ESS AGE AOBS/LEHG'.'E. 

PBIBT THIS BIT lO. 



BESEBTED FOB SBSSAGB LBHGTB. 
BESEBTEO FOB SBSSASE AODBESS. 
SPT B ♦-♦ COBTIBOE THE BIT CBECX. 

* IDIOT • 

* BBAllCH HESE IF OPBBATOB DOES STSTEH BESET, 
«^ STABT BEPCBE DOUG AB IPL PBOH THE DISK. 

IDIOT H»C 255(128),DCP BESTOBB DCP'S BOTTOH. 

r*C 127 (128) ,DCP-128 
B BEGIH GO STABT OTEB. 

* TABLES • 

m**»****m****m******* ************* *********************i'*****v********'* 



BTSO 



BTS3 



EQ3 


♦ 


DC 


ILI'IO* 


DC 


AL2 (BT07) 


DC 


1L1'21' 


DC 


AL2 (BT06) 


uc 


IL1'15« 


DC 


AL2(BT05) 


DC 


ILI'10' 


DC 


AL2(BT04) 


DC 


IL1'15« 


DC 


AL2(BT03) 


3C 


iLi • i7 = 


fC 


AL2(BT02} 


DC 


IL1'21' 


3C 


ftL2 (BTC1) 


DC 


IL1«?« 


DC 


tL2iBT00) 


EQO 


* 


PC- 


IL1»13« 


DC 


AL2(BT3S) 


DC 


1L1«6« 


DC 


AL2(BT30) 



TABLB OP STATnS BITB ID'S. 
BIT 7. 

BIT 6. 

BIT 5. 



BIT 


4. 


BIT 


3. 


BIT 


2. 



BIT 1. 



Bit 0. 



TABLB OP STATUS BITB 3 I'D'S 
BIT 5. 

BI': 0. 



***** *************** 
* HESSAGBS * 

**^*** t*****ii************ ****************'*********** *^* **************" 

BTOo DC CL5» BO-OP' 

3T01 DC CL21*ISTEByEKlICi BiiQOIBED* 



BT02 



DC 



CL17*B0 AODBESS HABKEB* 



LATE 
IC BO. 



13BAn0 
5715ir 



06APB70 
571516 



22HA/70 
571513 



01OCT7U 
5715U0 



29IJCT71 
571601 



PB06 10 
PAGE 



.J BO 3-3 

3 



IBB RtZllTBI&IICE DI&GIOSTIC PBOGBAH 



PtBT 10. 
P&GE 



34 



B033 5444 IPL TEST 



BBR LOC OBOBCT COTE 



»DDB STHT SOOBCE SIATEHBHT 



OB«C 
0E54 
0B55 
0B5D 
0F64 
0B6C 
0E6B 
0B76 
0B7D 
0B85 
0E8D 
0E92 
0E9& 
0E9C 
0E&2 
OEAt 

OEAF 
0EB7 
OEBP 
0EC7 
OECP 
0BD2 
3EEA 
0EE2 
OEEA 
0EF2 
0EF5 
OEPI 
OEO! 
OFOE 
OFi; 
0P18 
0F2O 
0P28 
0P30 
0F38 
0F3B 
0P43 
0P4B 
0F53 
0F5B 
0P5E 
0^66 
rP6S 
JP7<> 
OP'/E 
0T81 
CF89 

4)P9l 

0F99 
0FA1 

OPkC 
0FB4 
OFBC 
0FC4 
0PC7 
OFCF 
CYV7 
OFtF 
0PE7 
OFZA 
OtH 
0FF8 
1000 
1C06 
100S 



E2E240t!4C1D902C5 

D9 

C5i;8E4C9D7D«C5D5 QE63 

E340C3C8C5C'>-'" 

rl»ClI3C140r C8C= 0E6D 

C302 

D5D64'jr.9C5C3D6Dg 0E7C 

C44CCbD6E4D5C4 

E3C9C1C3D240C3D6 CESI 

n5C«C9E3C9D6D540 

(;3C8C5C3D2 

E2C5C5D240C3C8C5 0E9B 

CiD? 

:jaD5E2ClC6C5 

:8C5C1C440E2C5E: 

e3D3C9D5C7 



0EA1 
OEAE 



CUD640E3C8C540C6 0ED1 

C6I3D3fl6E6CSD5c7 

40E'iC5L'9E840C3Cl 

D9C5C6E4D3D3E840 

6C4040 

P14B40E2CSE340C4 03F>t 

C9i;2D7C3C1Efi4CD9 

-6D3t3C5D940E3D6 

4CD906D3D340F'!40 

404040 

F24B40E3E<;D9D5h0 0F17 

D6D540C1C4C4D9C5 

E2E240C3D6D4D7C1 

i)9C540S2E3D6D7«0 

'104040 

r34B40E2C5E3«0C3 0F3i 

I'6C5E2C6D3C540E2 

EOC9E3C3C8C5E240 

E3C640FOFOFOFCUO 

404040 

F44B40E2C5E340C9 OFSC 

D7D340E2E6C9E3CJ 

C«40E3De4040«040 

4 040404040404040 

(r04040 

T'5'4S40C4D64CD7D9 0F80 

C6C7C9C 104401)306 

C1Ca4040404U4040 

4040404040404040 

404040 

F64B40C1D3E3C5D9 CF»3 

4OE2C1D940E3D640 

6OF0C3FCF06C404O 

«04G4}U040404040 

40404 '> 

P74340E3B4D90S4C 0FC6 

D6C6C640C1C4C4D9 

C5E2E240C3D6D4D7 

C1C9C540E2E306D7 

'.0404 

F84B4')C4D640DVD9 0FE9 

D6C7DSC1Di.'iOE2E3 

C1D9E340404C4040 

4C40404040404040 

40404C 

C6C9E7C .C«4 0C4C9 



E2r.25C'«0404ri 

DiC5COD6E5C1C2D3 
C540C4~9E2'J2 
C9C9E2D240C409C9 
B5C54CF1«!CD9C5C3 



0FF7 
1005 
1024 



339 
339 
340 

340 
341 
341 
542 
342 
343 
343 
343 
344 
344 
345 
346 
346 
347 
348 
348 
348 
348 
348 
349 
349 
349 
:49 

:;49 

350 

3C0 

310 

350 

350 

351 

351 

351 

351 

351 

352 

352 

352 

352 

352 

353 

353 

353 

353 

331 

35 4 

3 34 

354 

354 

354 

355 

355 

355 

355 

355 

356 

356 

356 

356 

356 

35- 

357 

358 

358 

359 

359 



BT03 DC r-,l5«EQDIPHBirr CiiZCK* 

BT04 DC CLIO'DAT* CHECK* 

BT05 DC CLIS'NO BECOBD FCUBB* 

BT06 DC CL21«Ti:*CK rCBSITXOI CHECK* 



BT07 DC CLIO* SEEK CHECK' 

BT30 DC CL6"DHSAFB' 

BT35 DC CL13«HEAD SETTLING* 

* 0PBBATO8 IBSTanCTICKS. 

IHST DC CL35'DO THE FGLLOHIt-'f VEBI CABEFULII 



DC CLJS'I. SEl DISPLAX 3JLI.BB TO BOIL 1 • 



DC CL3S'2. TJBll OB ADEBBS'i COHPABE STOP ' 



DC CL35'3. SET COSaOLE SBITCHES TO 0000 • 



STIPL DC CL35'4. 32r IPL SBITCH TO ' 

DC CL3'i'5. DO ?BOGHAS LOAD ■ 

DC CL35«6. ALTEB SAB TO -OCOO- • 

DC CL35'7. TCBB OFF ADDBESS COSPABB STOP • 

DC CL3S«8. DO PEOGBAfl STABT ' 

DC CLU" FIXED n.r..K« 

DC CLl4'BZH0TAiJLfc DISK' 

DC CL31'DISK PBITB 1 BBCALIBBATE CHECK.* 



FIX 

PHf 
CAL 



DATE 
EC HO. 



1 lK»R7r, 
571512 



06APB70 
571516 



22BAT70 
571513 



01OCT70 
571540 



290CT71 
571601 



PBOG ID 
PAGE 



OB03-3 
3A 



lEB HkllTEaAHCE DIAGHOSTIC PROGBil 



PA IT ao. 

Pi6B 



5129646 



B033 



5««4 IPL TFST 



IBS LOC OBJECT CODE 



ADDS STBI SOOHCB STITEHEHT 



1016 


C1D3C9C2D9C1E3Ci 




359 




101B 


40C3C8C5C3D24B 




359 




1025 


C9D7D340C4C1E3C1 


1049 


360 


CKIPL DC CL37'IPL DATA CHECK FOB THE' 


102D 


a0C3C8C5C3D2*OC6 




360 




1035 


D6D940E3Cac5' 040 




360 




103D 


4040404040404040 




J 60 




ions 


40;>04C4040 




360 




104A 


E2E3C1E3E4E240C3 


1056 


361 


ST.3CK DC CL 13' STATUS CHECK." 


1052 


C8C5C3D24B 




361 




1C57 


C4C9E2D240C4D9C9 


106B 


362 


BO:;i DC CL2VDISK DBITB 1 IS BOSI.» 


105E 


E5C54CF140C9B240 




362 




1067 


C2E4E2E84B 




362 




106C 


4a404040404C4040 


10B1 


363 


Dc: CL70« IPL DATA' 


1074 


40404040C9D7D340 




363 




107C 


C4C1E3C1404C4C40 




363 




1084 


4C4C404040404C40 




363 




108C 


4040404040404040 




363 




109'-: 


404040404C404040 




363 




109C 


4C4O<t0404G'04O40 




363 




10A4 


4040404040404040 




363 




10AC 


404040404040 




363 




10B2 


D9C5C1C440C4C1E3 


10BA 


364 


HOB DC CI.9'i(EAD DATA' 


10BA 


CI 




364 




10EB 


C4C9EZD::40C4D9C9 


10D1 


365 


SPDUP IC CL23'DISK DBITE 1 >0T BEADT,' 


10C3 


E5C540E I40D5D6E3 




365 




10CB 


40D9C5C*;C4B84B 




365 




ion2 


C4C-'E3C140C4E4D4 


10F3 


366 


DHOP DC CL34'DATA DOaf CPTICH -' 


10DA 


D740D6C7E3C9D6D5 




366 




10E2 


4060404040404040 




366 




10EA 


4040404C40404040 




366 




10P2 


40 40 




366 




10F4 


C907D340C4C:E3C1 


1118 


367 


OKIPL DC CL37'XPI. DATA IS OK FOB THE' 


10FC 


40C9E240D6D24CC6 




367 




11C4 


D6094rF3C8C5404C 




367 




HOC 


40404040404C4040 




367 




1114 


4040404040 




367 




r.-.9 


C9D7D340C4C1E3C1 


114C 


368 


HI PL DC CL52'IPL DATA BAS HOT TBAaSFEBBJJD FfiOH THE' 


1121 


40E6C1E240C5D6E3 




368 




1129 


•.0E3E9C1D5E2C6C5 




368 




1131 


D9D9C5C440C6D9D6 




363 




1139 


Cit40E3C8C5404040 




368 




11*1 


4040404040404040 




368 




1H.9 


40404C40 




368 




1140 


?5P4F4F440C4C9E2 


115P 


369 


IPLHD DC CI.19«S444 DISK IPL TEST.' 


1155 


D240C9D7D340E3C5 




369 




115D 


E/E34B 




369 
370 
371 
372 


* BESEBTEL- ABBAS • 

t0***:^ifm**mt*m**m *************** ************************************** 






1160 


373 


BEADIn EQO * 


1160 




125E 


374 


OS CL256 BEAD FIELD STOBACE. 


1260 




135P 


375 


CODE DS CL256 EXPECTED IPL i'BOGHAH FOBHAT. 


1360 




145P 


376 


DCP DS CL: 56 DCP COBB STOBA&?. 


1460 




155P 


377 


CHECK :S C -!56 


156C 




15BA 


378 


PBT nr. CL 1 PtllT ABBA. 


15BB 


40 


1SBB 


319 


DC IL1 '40 ' 






15BC 


380 


CI7RL EQt. * 


I5BC 


CCCCCOOO 


15BP 


381 


DC XL4'0O00O00O' DISK COBTBOL PIELD- 


15C0 


00 


15C0 


382 


STSBTO DC ILl'OO' SI ATDS BITES 


15C1 


00 


15C1 


383 


STSBI1 DC ILI'OO" 


15C2 


00 


15C2 


384 


STSBT2 DC XLI 30' 


15C3 


CO 


15C3 


385 


STSBT3 DC ILI'OO' 


i5C4 


OCCOOOCO 


15C7 


386 


7BIIP DC XL4 '00000000 • HOBK STOBAGB. 






15C8 


387 


nlDL EQO ♦ 


15C<5 


00320132 


15CB 


388 
389 
390 
391 


DC ZL4»0032013i- SEEK TO TBACK 50 cOllTBOL FIELD. 

« COHSTABTS ♦ 

*m***********f*«********»** ********* ***•******''************************ 


D-i TE 


13HAB70 06APB70 


221AT70 01OCT70 290Cr71 PB06 ID 0B03-3 


tc no. 


571512 571516 


571513 571540 571601 PIGl 4 



IBH MtllTEMiaCI OI&GIOSTIC PBOGBAR 



PAST HO. 
PAGE 



51296<*6 
Oft 



B033 S444 IPL TEST 
BBB LOC OBJECT CODE 



ADDB STHT SOOBCB STiTEHSBT 



15CC 

15CB 
15D0 
I5D2 
15D« 
15D6 
15D8 



1160 
15BC 
FPPC 
0001 

i5ce 

C087 
ODFC 



15CU 


3 92 


BEAD 


DC 


AL2(BEADIH} 


15CF 


393 


CCM 


DC 


AL2(CBTBL) 


IjDI 


3 90 


NEG4 


DC 


XL2»FrPC» 


15D3 


395 


aooi 


DC 


IL2« 1" 


15D5 


396 


COT 


DC 


AL2(I1I0L) 


15D7 


397 




DC 


1U.2«C087' 


15D9 


398 


BBMCH 


DC 


AL 2 (IDIOT) 




399 


«*•*•*«****«« »«***« 




400 


* 


EQUATES • 




401 


••***«*******•*«••«•***« 


0008 


402 


ABB 


EQO 


X«08« 


C001 


403 


XB1 


EQD 


X'01» 


0002 


404 


XB2 


EQO 


X02' 


021E 


405 


OHPACK 
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